﻿Option Strict On

Namespace Buchungen.Positionen

    Public Class Buchungsposition

        Private _id As Integer
        Private _parentId As Integer
        Private _bezeichnung As String
        Private _datum As Date
        Private _betrag As Double
        Private _kategorieId As Integer

        Public Sub New()
            _betrag = 0
            _datum = Date.Now
        End Sub

        Public Property Id As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property

        Public Property ParentId As Integer
            Get
                Return _parentId
            End Get
            Set(ByVal value As Integer)
                _parentId = value
            End Set
        End Property

        Public Property Bezeichnung As String
            Get
                Return _bezeichnung
            End Get
            Set(ByVal value As String)
                _bezeichnung = value
            End Set
        End Property

        Public Property Betrag As Double
            Get
                Return _betrag
            End Get
            Set(ByVal value As Double)
                _betrag = value
            End Set
        End Property

        Public Property Datum As Date
            Get
                Return _datum
            End Get
            Set(ByVal value As Date)
                _datum = value
            End Set
        End Property

        Public Property KategorieId As Integer
            Get
                Return _kategorieId
            End Get
            Set(ByVal value As Integer)
                _kategorieId = value
            End Set
        End Property

    End Class

End Namespace